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DECUS Program Library Write-u p 


DECUS NO. 8-565 


"RENUM" 

Renumbering (Resequencing) Program for BASIC Language Tapes 

Hardware ; 8-K PDP-8/E (F,M) with high or low-speed paper tape reader 
and punch. 


Function : Reads a BASIC program from a paper tape, and outputs a copy 
whose first line number is 100, second line number 110, etc. 

All transfers of control in the original program are readdressed 
to conform to the new line numbering. Syntax is compatible with 
both the old and the newer versions of Edu-20 and Edu-25, and thus 
with many other (but not all) dialects of BASIC. 


Restrictions : (a) The original program may contain at most 195 lines. 

(b) The original program length must not exceed what can be stored 
in unpacked form in Field 1. Most programs which satisfy (a) 
above should meet this requirement. 

(c) Line numbers, if any, in the original program which exceed 
4095 in value are non-unique and will cause confusion. 

(d) Line numbers within comments ( ' or REM) or double quotes are 
left unchanged. It is hard to second-guess the writer's intent 
in such a case. 

(e) No check is made on program logic. It is presumed the original 
program makes sense. 

(f) Line numbers are resequenced according to their physical order 
on the source tape. Normally this is the same as the numerical 
order. 


Features: 



(a) Input is stripped to 7 bits, compatible with TTY or Dec- 
writer; output is punched in 8 bits (parity channel always 
punched), which is standard DEC format for PDP-8's. 

(b) Both high and low-speed readers are scanned (turn off the 
console TTY if using the HSR). The high-speed punch is 
selected by setting S.R. bit 11. 

(c) Line feeds on the output tape are followed by a blank frame, 
for identification and timing purposes. 

(d) Output line numbers are limited to the range 100 to 2040, 
which is compatible with PDP-8 BASICS. 


Use: (a) Load Renum with a binary loader. The program loads into Field 0; 
Field 1 is used for storage. 

(b) Place original BASIC program tape into the appropriate reader and 

turn the reader on. Also turn on the paper tape punch. 

(c) Load address = 0200. Set (raise) S.R. bit 11 if the high-speed 

paper tape punch is in use. Start the computer. 


Halts : (a) Normal halt is at address 177 (M.A. lights show 0200). 

(b) Program halts during the read cycle are due to too many lines 
or to too much text (see listing at address of halt). 

(c) A halt during punching (address 533) indicates reference in the 
original program to a non-existent line number. 










/RENUMBER! MG PROGRAM FOR BASIC 


/PAGE 0* COM STAM TS* POINTERS* SUBROUTIMES 
FIELD 0 /FIELD 1 STORES THE PROGRAM PRO TEM 

*20 


0020 

0000 

READ* 

0 


0021 

6031 


KSF 


0022 

5030 


JMP 

Ml 

0023 

6036 


KRB 


0024 

0036 

OUT* 

AMD 

K 177 

0025 

7421 


MOL 


0026 

7701 

M7 7* 

MQA 

CL A 

0027 

5420 


JMP 

I READ 

0030 

601 1 

HI* 

RSF 


0031 

5021 


JMP 

REA IX- 1 

0032 

7200 


CL A 


0033 

6016 


RRB 

RFC 

0034 

5024 


JMP 

OUT 

0035 

0720 

PCKSTO* 

CKSTQR 

0036 

0177 

K 177* 

177 


0037 

0000 

PUNCH* 

0 


0040 

1052 


TAD 

OUTPUM 

0041 

3020 


DCA 

SAV 

0042 

7604 


LAS 


0043 

7110 


CLL 

RAR 

0044 

7630 


SZL 

CL A 

0045 

5060 


JMP 

HSP 

0046 

1020 


TAD 

SAV 

0047 

6041 


TSF 


0050 

5047 


JMP 

. - 1 

0051 

6046 


TLS 


0052 

7200 

OUTPIN* 

CL A 


0053 

1020 


TAD 

SAV 

0054 

1065 


TAD 

M 212 

00 5 5 

7650 


SMA 

CL A 

0056 

5041 


JMP 

PUNCH* 2 

0057 

5437 


JMP 

I PUNCH 

0060 

1020 

HSP* 

TAD 

SAV 

0061 

6021 


PSF 


0062 

5061 


JMP 

1 

0063 

6026 


FLS 


0064 

5052 


JMP 

OUTPUM 

0065 

0566 

M2 12* 

-7212 


SAV= READ 


/READ 7 BITS ONLY-FORGET PARITY 


/ CHECK BOW READERS 


/CHAR.+ 200 

/BI T 11 SELECTS H. S. P. 


/LIME FEED? IF SO* ADD A BLANK 
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0066 

0000 

L DR» 

0 

0067 

1026 


TAD M77 

0070 

3075 


DCA CTR 

0071 

4037 


JMS PUNCH 

0072 

2075 


ISZ CTR 

0073 

5071 


JMP .-2 

0074 

5466 


JMP I L DR 

0075 

0000 

CTR» 

0 

0076 

0000 

SPN0R2# 

0 

0077 

4117 


JMS XSPC 

0100 

5476 


JMP I SPN0R2 

0101 

4037 


JMS PUNCH 

0102 

5077 


JMP SPN0R2+ 

0103 

0000 

SPNOR3> 

0 

0104 

4020 


JMS READ 

0105 

1152 


TAD M 40 

0106 

7650 


SNA CLA 

0107 

5104 


JMP .-3 

01 10 

7501 


MQA 

0111 

5503 


JMP I SPN0R3 

0112 

0000 

SPN0R4, 

0 

0113 

41 17 


JMS XSPC 

01 14 

5512 


JMP I SPN0R4 

0115 

7200 


CLA 

0116 

5113 


JMP .-3 


0117 0000 

0120 1010 
0121 7041 

0122 1011 
0123 7650 

0124 5176 

0125 6211 

0126 1411 

0127 6201 

0130 7421 

0131 7501 

0132 1152 

0133 7650 

0134 2117 

0135 7501 

0136 5517 


X SPC, 0 

TAD 10 
CIA 
TAD 1 1 
SNA CLA 
JMP 176 
/ 

CDF 10 
TAD I 11 
CDF 
MQL 
MQA 

TAD M 40 
SNA CLA 
INC XSPC 
MQA 

JMP I XSPC 


/63 FRAMES 


/ FETCH CHAR. FOR OUTPUT 
/NOT A SPACE. EXI T 


/ DI SRE6ARD SPACES 


/NOT A SPACE 


/ALL STORED TEXT rIAS BEEN 
PUNCHED. EXIT. 


/SPACE? RETURN TO CALL+2 
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0137 

0000 

CRTEST, 

0 



0140 

1154 


TAD M 1 5 



0141 

7 640 


SZ A CL A 



0142 

5146 


JMP .+4 



0143 

7501 


MQA 



0144 

4037 


JMS PUMCH 


0145 

5556 


JMP I 

PLI M E 

/C. R. = MEW LIME 

0146 

7501 


MQA 



0147 

5537 


JMP I CRTEST 


0150 

0077 

K77, 

77 



0151 

7767 

M 1 1, 

- 1 1 



0152 

7740 

M4 0 , 

-40 



0153 

7720 

M 60# 

- 60 



0154 

7763 

M 15, 

- 15 



0155 

0730 

TWOMRP, 

TWOMOR 



0156 

0335 

PLIME, 

LIME 



0157 

0345 

PTXT, 

IX T 



0160 

0304 

PCKMUM, 

CKMUM 



0161 

0705 

PGETC, 

GETC 



0162 

0315 

PDECPK, 

DECPAK 



0163 

7736 

MI NI42, 

-42 

/ - DBL. 

QUOTE MARK 

0164 

0600 

DECIML, 

600 

/TO DEC TP 

0165 

0000 

TEMPI 0, 

0 

/DECIMAL 

#, DURIMG PACKI M G 



4 EX 2, 




0166 

0000 

SAVE, 

0 



0167 

0132 

MIM E TY , 

132 

/ = 9 0 




* 176 




0176 

4066 


JMS L DR 



0177 

7402 


-1LT 

/RESTART 

Bf "COM TIM UE" 




/***♦ 

START AT 

00200 

**** 



/ PASS 1: READ TAPE, 

CHAMGE * STORE LIME MCMBERS 

0200 

6026 

PL S 




0201 

6040 

SPF 




0202 

6032 

KCC 




0203 

6014 

RFC 




0204 

3010 

DCA 

10 

/TEXT 

STORAGE 

0205 

7130 

CLL 

CML RAR 

/ 4000 


0206 

3012 

DCA 

12 

/LI ST 

OF LIME MOS. 

0207 

3165 

DCA 

TEMPI 0 



0210 

1167 

TAD 

MIMETY 



021 1 

3300 

DCA 

TEMX 

/ 10*X 

(LIME #S. 100-2040) 

0212 

4103 

JMS 

SPMOR3 

/READ 

7 BITS, I GMORIMG SPACES 

0213 

7650 

SMA 

CL A 



0214 

5212 

JMP 

.-2 

/IGMORE 0 OR 200 LEADER 

0215 

5227 

JMP 

CHAR 
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0216 

0217 

0220 

0221 

0222 

0223 

0224 

0225 

0226 

0227 

0230 

0231 

0232 

0233 

0234 


0235 

0236 

0237 

0240 


0241 
0242 
024 3 
0244 
0245 
0246 
0247 
0250 
0251 

0252 
0253 
0254 
02 5 5 
0256 

0257 
02 6 0 
0261 
02 62 
0263 
0264 
0265 


\ 


1303 

LYNE, 

TAD M 30 


3302 


DCA TRAILC 

/MORE THAN 24 BLANKS= END OF TAPE 



/ 

(CODE 200 COUNTS AS A BLANK) 

3165 


DCA TEMPI 0 

/CLEAR I T 

4103 


JMS SPN0R3 

/read; discard spaces, if any 

7640 


SZA CL A 

/BLANK? 

5227 


JMP CHAR 

/NO 

2302 


I SZ TRAI L C 

/ 24 YET? 

5221 


JMP LYNE+3 

/ NO 

5332 


JMP PASS2 

/ 2ND PHASE: READ BUFFER, PUNCH 

7501 

CHAR, 

MQA 


4304 


JMS CKNUM 

/IS IT A NUMERAL? 

5235 

/**•••• 

JMP NUMBER 

/YES 

7501 


MQA 

/NO 

4435 


JMS I PCKSTOR 

/STORE IN FIELD 1 

5221 

/. 

JMP LYNE+3 


4315 

NUMBER, 

JMS DECPAK 

/MERGE EACH DECIM. DIGIT 



/ 

INTO 1-WD. BINARY NO. 

4103 


JMS SPNOR3 

/GET NEW DI GI TS 

4304 


JMS CKNUM 


5235 


JMP NUMBER 

/IF A NUMBER 


/AFTER 

READING A NON-NUMBER: 

1165 


TAD TEMPI 0 


3412 


DCA I 12 

/STORE OLD LINE NO. IN TABLE 

1300 


TAD TENX 

/LAST MULTI PLE-OF-TEN NO. 

1301 


TAD TEN 


7510 


SPA 


7402 


HLT 

/TOO MANY LINES (>195) 

3300 


DCA TENX 

/ADD 10 DEC. 

1300 


TAD TENX 


3412 


DCA I 12 

/STORE NEW LINE NO. IN TABLE 

1300 


TAD TENX 


7041 


Cl A 


4435 


JMS I PCKSTOR 

/STORE -NEW LINE NO. IN TEXT 

7501 


MQA 


7410 


SKP 


4266 

RESTLN, 

JMS SPNOR1 

/NOW GET REST OF THE LINE 

4435 


JMS I PCKSTOR 


7501 


MQA 

/TEST FOR C. R. 

1154 


TAD M15 


7640 


SZA CL A 


5257 


JMP RESTLN 

/NOT FOUND 

5216 


JMP LYNE 

/FOUND, BEGIN NEW LINE 
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/ SUBROUTIMES# PAGE It 


0266 

0000 

SPM0R1# 

0 



0267 

4020 


JMS 

READ 


0270 

1152 


TAD 

M 40 


0271 

7640 


SZ A 

CLA 


0272 

5276 


JMP 

. + 4 

/MOT A SPACE 

0273 

7501 


MQA 



0274 

4435 


JMS 

I PCKSTOR 


0275 

5267 


JMP 

SPMOR1+ 1 

/ STORE* I GMORE# GET MORE 

02 7 6 

7501 


MQA 

/ MOM-SPACE CMARS. 

02 7 7 

5666 


JMP I SPMOR1 


0300 

0000 

TEMX# 

0 



0301 

0012 

TEM# 

12 



0302 

0000 

TRAIL C# 

0 



0303 

7750 

M30# 

-30 



0304 

0000 

CKMUM# 

0 


/CHAR. IM AC WHEM CALLED 

03 05 

1153 


TAD 

M 60 


0306 

7510 


SPA 



0307 

5312 


JMP 

MOTMUM 


0310 

1151 


TAD 

Mil 


0311 

7540 


SMA 

SZ A 


0312 

2304 

MO TM IM, 

IMC 

CKMUM 

/MOM-MUMBER: RETURM TO CALL+2 

0313 

7200 


CL A 


0314 

5704 


JMP 

I CKMUM 

/ E< I T S WITH AC=0 

0315 

0000 

DECPAK# 

0 


/ AC= 0 VHEM EMTERED 

0316 

1165 


TAD 

TEMP10 

/PREVIOUS PACKED DECIMALS# IF 

0317 

7104 


CLL 

HAL 


0320 

3165 


DCA 

TEMPI 0 

AM* 2 

0321 

1165 


TAD 

TEMPI 0 


0322 

7106 


CLL 

RTL 


0323 

1165 


TAD 

TEMPI 0 

/M* 2+M*8=»M* 10 

0324 

3165 


DCA 

TEMPI 0 


0325 

7501 


MQA 


/RETRI EVE MEV DI GI T 

0326 

1153 


TAD 

M 60 

/ STRI P I T 

0327 

1165 


TAD 

TEMP10 

/ADD PREV. DIGITS (ROTATED) 

0330 

3165 


DCA 

TEMP10 


0331 

5715 


JMP 

I DECPAK 

/ AC** 0 
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PAUSE 


/PASS 2: READ BUFFER* READDRESS HW> GOTO* GO SUB, 
/PINCH OUTPUT TAPE 


0332 

3011 

PASS2* 

DCA 11 

0333 

3412 


DCA I 12 

0334 

4066 


JMS L DR 

0335 

4561 

LIME* 

JMS I PGETC 

03 3 6 

7510 


SPA 




/ 

03 37 

5342 


JMP . + 3 

0340 

4037 


JMS PUMCM 

0341 

5335 


JMP LIME 

0342 

7041 


CIA 

0343 

4564 


JMS I DECIML 

0344 

0040 


40 

0345 

7200 

TXT* 

CL A 

0346 

4561 


JMS I PGETC 

0347 

4037 


JMS PINCH 

0350 

7501 


MQA 

0351 

3166 


DCA SAVE 

0352 

1372 


TAD KLI ST1 

0353 

3075 


DCA PTR 



PTR=CTR 


0354 

1475 

LOO PL S* 

TAD I PTR 

03 5 5 

7500 


SMA 

0356 

5345 


JMP TXT 

0357 

1166 


TAD SAVE 

0360 

7650 


SMA CLA 

0361 

5364 


JMP . + 3 

0362 

2075 


IMC PTR 

0363 

5354 


JMP LOO PL S 

0364 

1075 


TAD PTR 




/ 

0365 

1373 


TAD AUGMM T 

0366 

3075 


DCA PTR 

0367 

1475 


TAD I PTR 

0370 

3075 


DCA PTR 

0371 

5475 


JMP I PTR 

0372 

0374 

KLI ST1* 

LI ST 1 

0373 

0005 

AUGMM T* 

LIST2-LISTl 

0374 

7736 

LI ST1* 

-42 /” 

0375 

7731 


-47 / ' 

0376 

7671 


-107 /G 

0377 

7656 


-122 /R 

0400 

7654 


-124 /T 


/CLEAR OUT PTR. TO FIELD 1 
/EM D LIME MO. LIST VI TH 0 


/GET CHAR. : EXIT IF C. R. * BK SL Sri. 
/LIME MO. AT START OF LIME 
IS STORED AS A MEG. MO. 

/ MOT A LIME MO. 

/ THY AGAIM 

/FOUMD. MAKE MO. POSITIVE... 
/...AMD PUMCH IT IM DECIMAL FORM 
/ ARGUMEM T CLEADIMG SPACES) 


/RETRIEVE CHAR. 
/FOR ADDITIOM 
/BOTTOM OF LI ST1 


/LOOP THROUGH LI ST1. 
/POS. MO. EM DS THE LIST 


/ MOT FOUMD SO FAR 
/ ...SO TRY AGAIM 

/FOUMD. MOV GET TO PROPER 
ROUTIME FOR THIS CHAR. 


/ADDRESS OF ROUTIME 
/BOM VOYAGE! 
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0401 

0406 

LI ST2* 

QUO TES 

0402 

0421 


APOSTR 

0403 

0446 


G 

0404 

0416 


R 

0405 

0424 


T 

0406 

4076 

QUO TES* 

JMS SPN0R2 

0407 

4137 


JMS CRTEST 
/ 

0410 

4037 


JMS PUNCH 

0411 

7501 


MQA 

0412 

1163 


TAD MIM42 

0413 

7640 


SZA CL A 

0414 

5206 


JMP QUOTES 

0415 

5557 


JMP I PTXT 

0416 

1302 

R* 

TAD MI MEM 

0417 

4555 


JMS I TWOMRP 

0420 

5557 


f 

JMP I PTXT 

0421 

4561 

APOSTR* 

JMS I PGETC 

0422 

4037 


JMS PUNCH 

0423 

5221 


JMP .-2 

0424 

1303 

T* 

TAD MIMHE 

0425 

4555 


JMS I TWOMRP 

0426 

5557 


JMP I PTXT 

0427 

4561 


JMS I PGETC 

0430 

4560 


JM S I PCKM UM 

0431 

5243 

/tea.*.*.*.*.* 

JMP .+12 

0432 

7501 


MQA 

043 3 

1304 


TAD MI MM 

0434 

7650 


SNA CL A 

0435 

5240 


JMP .+3 

0436 

4351 


JMS BACKUP 

0437 

5557 


JMP I PTXT 

0440 

7501 


MQA 

0441 

4037 


JMS PUNCH 

0442 

7410 


SKP 

0443 

4351 


JMS BACKUP 

0444 

4312 


JMS GETMUM 

044 5 

5557 


f 

JMP I PTXT 

0446 

1300 

G* 

TAD MIMOS 

0447 

4555 


JMS I TWOMRP 

0450 

5255 


JMP GOTO 


/C. R. AM D M EM D TH E QUOTE; 
BACKSLASH DOES MOT. 


/" 


/READ & ECHO NEXT 2 FRAMES; 

EXIT IF C. R. OR BACKSLASH 
/MO* MOT A "REM" COMMAND 
/GET CHAR.J EXIT IF C. R. OR \ 


/MO* MOT A "THECM) ” COMMAND 
/yes; VHAT FOLLOWS? 

/IS IT A NUMERAL? 

/YES 

/MO. PERHAPS IT’S ”M”? 


/MOT M. EXI T. 


/IT IS M. DOES A NUMERAL FOLLOW? 

/COUNT BACK PTR. = 11 BY 1 
/GET* UPDATE, PUNCH LIME MO. 

C I F MO LIME NO.* EXI T) 

/. .. AMD EXI T TO ”TXT” 
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0451 

1301 

GO SUB* 

TAD MIMUB 


0452 

4555 


JMS I TWOMRP 


0453 

7000 


MOP 


0454 

5273 


JMP COMMA 

r 

0455 

1305 

GOTO, 

TAD MIMOT 


0456 

4555 


JMS I TWOMRP 


0457 

5557 


JMP I PTXT 

/MOT "GOT" 

0460 

4561 


JMS I PGETC 


0461 

4560 


JMS I PCKMUM 

/MUMERAL? 

0462 

5272 


JMP .+10 

/YES 

0463 

7501 

/ 

MQA 

/MO 

0464 

4037 


JMS PUMCK 


0465 

7501 


MQA 


0466 

1310 


TAD MIMO 

/"O"? 

0467 

7 640 


SSA CL A 


0470 

5557 


JMP I PTXT 

/MO, EXIT. 

0471 

7410 


SKP 

/YES, HUM T FOR LI ME MO. 

0472 

4351 


JMS BACKUP 

/ BACK UP PTR. = 1 1 

0473 

4312 

COMMA, 

JMS GETMUM 


0474 

1311 


TAD MCOMMA 

/", "7 (AS IM OM...GOTO) 

047 5 

7650 


SMA CL A 


0476 

5273 


JMP .-3 

/IT IS A COMMA, LOOK FOR MORE 




/ 

LIME M UMBERS 

0477 

5557 


JMP I PTXT 

/MOT A COMMA, EXIT 

0500 

6055 

MIMOS, 

- 1723 


0501 

5276 

MIMUB, 

-2502 


0502 

7263 

MIMEM, 

-0515 


0503 

6773 

MIMKE, 

- 1005 


0504 

7662 

MI MM, 

- 116 


0505 

6054 

MI MOT, 

- 1724 


0506 

7 653 

MI MU, 

- 125 


0507 

7676 

MINB, 

- 102 


0510 

7661 

MIMO, 

- 117 


051 1 

7724 

M COMMA, 

-54 




/PAGE 2 

SUBROUTIME: 


0512 

0000 

GETMUM, 

0 / AC= 0* 

SUBR. LOOKS FOR A LIME MUMBER; 




/ IF FOUMD, CtfAMGES IT TO MEW LIME MO. 

/ VIA TABLE; IF MOT FOUMD, exits. 

0513 

7330 


CL A CLL CML RAR 

/ 4000 

0514 

3012 


DCA 12 


0515 

3165 

w 

DCA TEMPI 0 

/CLEAR I T OUT 

0516 

407 6 


JMS SPM0R2 


0517 

4560 


JMS I PCKMUM 

/A MUMERAL? 

0520 

5325 


JMP .+5 

/YES 
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/ 


0521 

7501 


MQA 

0522 

4137 


JMS CRTEST 

052 3 

4351 


JMS BACKUP 
/ 

6624 

5557 

/. 

JMP I PTXT 

0525 

4562 


JM S I PDECPK 
/ 

0526 

4112 


JMS SPMOR4 

0527 

4560 


JMS I PCKNUM 

0530 

5325 


JMP .-3 

0531 

1412 

SEARCH, 

TAD I 12 

0532 

7450 


SNA 

0533 

7402 


HLT 

05 34 

7041 


CIA 

0535 

1165 


TAD TEMP 10 

0536 

7640 


SZA CL A 

0537 

5347 

/:::*:: 

JMP NOTYET 
::: 

0540 

1412 


TAD I 12 

0541 

4564 


JMS I DECIML 

0542 

4351 


JMS BACKUP 

0543 

4561 


JMS I PGETC 
/ 

0544 

4037 


JMS PUNCH 

0545 

7501 


MQA 

0546 

5712 

/::*::: 

JMP I GETMUM 
t:: 

0547 

2012 

MO TY ET, 

INC 12 

0550 

5331 


JMP SEARCH 

0551 

0000 

BACKUP, 

0 

0552 

7240 


CL A CM A 

0553 

1011 


TAD 1 1 

0554 

3011 


DCA 11 

0555 

5751 

JMP I BACKUP 

/DECIMAL PUNCH FOR LIME 

* 600 

0600 

0000 

DEC TP, 

0 

0601 

3266 


DCA TEMPO 
/ 

0602 

1267 


TAD PDIG1 

0603 

3301 


DCA PTRDIG 
/ 

0604 

1273 


TAD PTEMS 

0605 

3302 


DCA PTR10 

0606 

7346 


CL A CLL CM A RTL 

0607 

3277 


DCA CO UN TR 


/MO 

/C. R.? IF SO, JMP TO "LIME” 

/BACK UP PTR. « 11,* WE MIGHT HAVE 
AM ”1 F. » • TH EM GOTO” OM OUR HAMDS. 


/ STRI P M EW DI GI T, ADD TO PREV. 
TO TAL * 10 

/IGMORE SPCS. EM TI RELY 
/NUMERAL? 

/YES, KEEP OM PACKING 
/MO. MOW LOOK UP OLD LIME MO. 
/THERE AIM *T MO SI CH LIME MO. 


/MOT YET FOUND IM TABLE 

/MEW LIME NO. FOLLOWS OLD IM TABLE 
/TYPE IT, IM DECIMAL FORM 
/BACK UP PTR. *11 

/THIS RETRIEVES STOP CHAR. (1ST 
MOM-NUMERAL) 

/RETRIEVE CHAR. AGAIN . 

/...AMD RETURN 

/OLD LIME NOS. ARE ODD LOCMS. 


NOS. 


/NUMBER <& LATER, REMAINDERS) 
IM TEMPO 

/WHICH POINTS TO DIGITS OF 
OUTPUT NUMBER 

/WHICH POINTS TO 10tM LIST 
/- 3 
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0610 

3701 

LOOPD1, 

DCA 

I PTRDI G 

0611 

1266 


TAD 

TEMPO 

0612 

1702 


TAD 

I PTR10 

0613 

7510 


SPA 


0614 

5217 


JMP 

• + 3 

0615 

2701 


INC 

I PTRDI G 

0616 

5212 


JMP 

. - 4 

0617 

7041 


CIA 


0620 

1702 


TAD 

I PTR10 

0621 

7041 


CIA 

y 


0622 

3266 


DCA 

TEMPO 

0623 

2301 


INC PTRDIG 

0624 

2302 


INC PTR10 

0625 

2277 


I S5 

com TR 

0626 

5210 


JMP 

LOOPD1 

0627 

7346 


CL A 

CLL CM A 

0630 

3277 


DCA 

COIN TR 

0631 

1267 


TAD 

PDI GI 

0632 

3301 


DCA 

PTRDI G 

0633 

3300 


DCA 

NON 0 

0634 

1701 

L00PD2, 

TAD 

I PTRDI G 

0635 

7450 


SNA 


0636 

1300 


TAD 

NON 0 

0637 

3300 


DCA 

MOM 0 

0640 

1300 


TAD 

NON 0 

0641 

7650 


SNA 

CL A 

0642 

5247 


JMP 

• + 5 

0643 

1701 

F m m m m mm* 

TAD 

I PTRDI G 

0644 

1304 


TAD 

K 60 

0645 

4037 


JMS 

PUNCH 

0646 

5253 


JMP 

. + 5 

0647 

1600 

/ ••••••• 

TAD 

I DECTP 

0650 

7500 


SMA 


0651 

4037 


JMS 

PINCH 

06 52 

7200 


CL A 


0653 

2301 


INC 

PTRDI G 

0654 

2277 


I Si 

CO UN TR 

0655 

5234 


JMP 

L00PD2 

0656 

1266 


TAD 

TEMPD 

0657 

1304 


TAD 

K 60 

0660 

4037 


JMS 

PUNCH 

0661 

1600 


TAD 

I DECTP 

0662 

7500 


SMA 


0663 

4037 


JMS 

PUNCH 

06 64 

7200 


CL A 


0665 

5600 


JMP 

I DECTP 


/CLEAR OUTPUT DIGIT 
/ - (POWER OF 10) 


/ DI GI T* DI GI T+ 1 
/SUBTRACT ONCE MORE 


/THIS RESTORES WE 10»N, 

WHICH WAS SUBTR. OMCE TOO OFTEN 
/STORE RMMDR. AS MEW MIMUEND 
/ POINT TO NEXT DI GI T 
/ POIMT TO NEXT LOWER 10»N 
/DOME 3 DI GI TS YET? 

/MO* DO MORE 

/- 3 

/COUMT DIGITS #l-#3 


/ 0 UMTIL MOM-0 DIGIT 


/MOT A LEADING 0? PUNCH IT. 


/ARGUMENT. IF ANY 

/IT WAS 40, LEADING SPCS* WANTED 


/DOME ALL 3? 

/NO, GET NEXT 

/THE LAST OF THE MHOMS. 


/ ARG* * 40, PRINT TRAILING SPACE 
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0666 

0000 

/ 

TEMPO* 

0 

0667 

0670 

PDIG1* 

.+ 1 

0670 

0000 

DI Gl* 

0 

0671 

0000 

DI G2* 

0 

0672 

0000 

DI G3* 

0 

0673 

0674 

PTENS* 

.+ 1 


DECIMAL 


0674 6030 -1000 

0675 7634 -100 

0676 7766 -10 


OCTAL 


0677 

0000 

COIN TR. 

0 


0700 

0000 

NON0* 

0 


0701 

0000 

PTRDI G* 

0 


0702 

0000 

PTR10* 

0 


0703 

0040 

K40* 

40 

/SPACE 

07 04 

0060 

K 60* 

60 

/NUMERAL CODE 



/PAGE 3 

SUBROUTINES: 

0705 

0000 

GETC* 

0 

/THIS SUBR. GETS NEXT CHAR. FROM STORAGE. 




/ 

IF A C. R.* PUNCH 4 EXIT TO "LINE"? IF 




/ 

A BACKSLASH* PUNCH 4 EXIT TO "TXT"? 




/ 

OTHERWISE* RETURN TO CALL* 1 WITH CHAR. 

0706 

4076 


JMS 

SPN0R2 

0707 

4137 


JMS 

CRTEST 

0710 

1367 


TAD 

MBSLSH 

0711 

7650 


SNA 

CL A 

0712 

5315 


JMP 

.♦3 

0713 

7501 


MQA /RETRIEVE MAR. 

0714 

5705 


JMP I GETC /...AND EXIT 

0715 

7501 


MQA 


0716 

4037 


JMS 

PUNCH 

0717 

5557 


JMP 

I PTXT /IT WAS A BACKSLASH 

0720 

0000 

CKSTOR* 

0 

/STORES CHAR.* CHECKS FOR OVERFLOW 

0721 

621 1 


CDF 

10 

0722 

3410 


DCA 

I 10 

0723 

6201 


CDF 


0724 

1010 


TAD 

10 

0725 

7650 


SNA 

CL A 

0726 

7402 


HLT /OVERFLOW OF FLD l. TOO MUCH TEXT 

0727 

5720 


JMP 

I CKSTOR 
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SAV2=LDR 


0730 

0000 

TWOMOR# 

0 

/READS 

2 MORE CHAR* 'S AFTER A "G"# 




/ 

"R". OR M T" HAS BEEN FOUMD 

0731 

3066 


DCA 

SAV2 

/(STORE -HE# -OT# ETC.) 

0732 

1011 


TAD 

1 1 


0733 

3075 


DCA 

PTR 

/SAVE CURRENT POIMTER 



/+++++++++ 



0734 

7200 


CL A 



0735 

4117 


JMS 

XSPC 

/GET CHAR. 

07 36 

7410 


SKP 



0737 

5334 


JMP 

.-3 

/IT WAS A SPACE# IGMORE IT! 

0740 

3165 


DCA 

TEMP 10 


0741 

7501 


MQA 


/RETRIEVE CHAR. 

0742 

0150 


AMD 

K77 

/C SHV. & HRCUT. 3 

07 43 

7002 


BSW 



0744 

3166 


DCA 

MEX 2 


0745 

7200 

A ******' 

CL A 



0746 

4117 


JMS 

XSPC 


0747 

7410 


SKP 



0750 

5345 


JMP 

.-3 

/IGMORE SPACES AGAIM 

0751 

0150 

f m m 4* m mm m. 4 

AMD 

K77 


0752 

1166 


TAD 

MEX 2 

/THUS PACKIMG 2 CHAR. *S 

0753 

1066 


TAD 

SAV2 

/THE RI GHT TWO? 

07 54 

7650 


SMA 

CL A 


0755 

5361 


JMP 

TWO FM D 

/YES 

07 5 6 

1075 


TAD 

PTR 

/MO GOOD# SO... 

0757 

3011 


DCA 

1 1 

/...RESTORE 11 

0760 

5730 


JMP 

I TWOMOR 

/AMD SAY GOODBfE 

0761 

1165 

TWO FM D, 

TAD 

TEMP 10 


0762 

4037 


JMS 

PINCH 


0763 

7501 


MQA 



0764 

4037 


JMS 

PINCH! 


0765 

2330 


IMC 

TWOMOR 


0766 

5730 


JMP 

I TWOMOR 


0767 

7 644 

MBSLSH# 

- 134 
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AFOSTR 

0421 

AUGMM T 

0373 

BACKUP 

0551 

CHAR 

0227 

CKMCM 

0304 

CKSTOR 

0720 

COMMA 

0473 

COUMTR 

0677 

CRTEST 

0137 

CTR 

0075 

DECIML 

0164 

DECPAK 

0315 

DEC TP 

0600 

DIG1 

0670 

DIG2 

0671 

DIG3 

0672 

G 

0446 

GETC 

0705 

GETNUM 

0512 

GO SUB 

0451 

GOTO 

0455 

HI 

0030 

HSP 

0060 

KLI ST1 

0372 

K177 

0036 

K 40 

0703 

K60 

0704 

K77 

0150 

LDR 

0066 

LIME 

0335 

LI STl 

0374 

LI ST2 

0401 

LOOPD1 

0610 

L00PD2 

0634 

LOOPLS 

0354 

LYME 

0216 

MBSLSH 

0767 

MCOMMA 

0511 

MIMB 

0507 

MIMEM 

0502 

MIMHE 

0503 

MI MM 

0504 

MI MO 

0510 

MIMOS 

0500 

MI MOT 

0505 

MIMU 

0506 

MIMUB 

0501 

MIM42 

0163 

Ml 1 

0151 

M 1 5 

0154 

M212 

0065 

M30 

0303 

M40 

0152 

M60 

0153 

M77 

0026 

MEX 2 

0166 

MIMETY 

0167 




MOM 0 

0700 

NOTNUM 

0312 

NOTYET 

0547 

NUMBER 

0235 

OUT 

0024 

OUTPUN 

0052 

PASS2 

0332 

PCKNJUM 

0160 

PCKSTO 

0035 

PDECPK 

0162 

PDIG1 

0667 

PGETC 

0161 

FLINE 

0156 

PTENS 

0673 

PTR 

0075 

PTRDI G 

0701 

PTR 10 

0702 

PTXT 

0157 

PUNCH 

0037 

QUOTES 

0406 

R 

0416 

READ 

0020 

RESTLN 

0257 

SAV 

0020 

SAVE 

0166 

SAV2 

0066 

SEARCH 

0531 

SPMOR1 

0266 

SFN0R2 

0076 

SPNOR3 

0103 

SPNOR4 

0112 

T 

0424 

TEMPO 

0666 

TEMP 10 

0165 

TEN 

0301 

TENX 

0300 

TRAIL C 

0302 

TWOFND 

0761 

TWOMOR 

0730 

TWOMRP 

0155 

TXT 

0345 

XSPC 

0117 







